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Courbure des tissus planaires definis implicitement 
par une equation differentielle polynomiale en y'. 
Programmation 


J.P. Dufour et D. Lehmann 


Abstract : 

The aim of this paper is mainly, after some theoretical explanations, to provide a program on Maple 
for computing, whatever be d, the curvature of the planar d-web implicitely defined by a differential 
equation F{x,y,y') =0, F being polynomial of degree d with respect to y'. 

Moreover, we prove in the appendix a ’’concentration theorem” for any calibrated ordinary d-web 
of codimension one in a n-dimensional manifold {in particular for any planar web). Its curvature 
matrix, relatively to an ’’adapted” trivialization, is concentrated on the (n — 2 + ko)\/{n — 2)!fco! last 
lines {the last line if n = 2), ko denoting the integer > 2 such that d = (n — 1 + ko\/{n — l)!fco!- 


1 Introduction 

A. Henaut a beaucoup etudie les tissus planaires definis par une equation differentielle F{x, y, y') = 0, 
ou 

d 

F{x,y,p) = ^ai{x,y) p'^~" 

i=0 

designe un polynome de degre d en p, a coefficients Oi dans I’anneau Ojj des fonctions holomorphes 
sur un ouvert U de C^. 

On suppose 

- que, pour tout {x,y) dans U, F{x,y,p) et F^{x,y,p) ne sont jamais simultanement nuls, c’est- 
a-dire que les racines pi{x,y) {i = I,-- - ,d) de F, consid&e comme polynome en p, sont toutes 
distinctes, 

- et, pour simplifier les calculs, que le coefficient oq de p'^ est identiquement egal a 1, soit 

d 

F{x,y,p) = Y[{p-Pi{x,y)). 

i=l 

Notons Fi le feuilletage defini par I’equation differentielle y' = pi{x,y) ; en superposant les d feuil- 
letages Fj, on obtient un d-tissu holomorphe decomposable sur U. 

Dans [H] en particulier, A. Henaut a defini, pour un tel tissu, une certaine connexion dont la 
courbure generalise a tout d la courbure de Blaschke-Dubourdieu ([B]) du cas d = 3, et qui est 
I’obstruction a ce que le rang du tissu (c’est-a-dire la dimension de I’espace vectoriel de ses relations 
abeliennes) soit maximum, egal a |(d — l)(d — 2). 

Dans sa these, a la meme epoque, L. Pirio (FI] a en particulier modernise des travaux anciens de 
A. Pantazi [Paj . egalement en termes de connexion. 

Des programmes permettant de calculer cette courbure ont ete rediges sur Maple, pour d = 3, 4 
ou 5, dans le cas ’’explicite” par Pirio ( m), et dans le cas ’’implicite” par O. Ripoll (El]). 

Dans [CL], nous avons generalise la definition de cette courbure aux d-tissus de codimension un 
sur une variete holomorphe de dimension n arbitraire (n > 2), pourvu que ceux-ci soient “ordinaires” 
(condition toujours verifiee pour n = 2, et generiquement verifiee localement pour n > 3), et “calibres” 
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(ce qui veut dire qu’il existe un entier fco {ko > 2), tel que d = , cette condition etant toujours 

verifiee pour n = 2 avec ko = d — 1). 

Dans [DL], nous avons redige un programme sur Maple, permettant de calculer cette courbure quels 
que soient n et kg, en un temps raisonnable pourvu que n et ko ne soient pas “trop grands”. Toutefois, 
pour appliquer ce programme, il fallait disposer d’une integrate premiere pour chaque feuilletage Jq, et 
par consequent, lorsque n = 2, supposer integree chaque equation differentielle y' = pi{x,y). En fait, 
nous disposons aussi d’un autre programme (non publie) qui s’applique au cas ou chaque feuilletage 
local du tissu est defini par une forme integrable non necessairement fermee, ce qui -pour n = 2, 
revient au cas ’’explicite” ou Ton connait au moins la decomposition F{x,y,p) = Ilf^i (-P ~ y)) ■ 

Dans le cas ’’implicite” ou Ton ne sait pas realiser cette decomposition, il nous faut generaliser a tout 
d une methode de mogrammation du type de celle proposee par Ripoll dans les cas d = 3,4, 5. C’est 
I’objet de ce travaillJ. 

Nous resumons ci-dessous les quelques points de la theorie dont nous avons besoin pour expliquer 
la programmation, et renvoyons a [Pi], [H], [CL] ou [DL] pour plus de details. 


2 Rappels sur la definition des relations abeliennes 

Il revient au meme de se donner la differentielle d’une integrate premiere du feuilletage Ft ou une 
fonction holomorphe fi : (x,y) i—>■ fi{x,y) telle que la 1-forme fiidy — ptdx) soit fermee. Une relation 
abelienne du d-tissu obtenu par superposition des Fi est alors definie par une famille de fonctions fi 
(i = 1, • • • , d), telle que 

- la somme fi{dy — Pidx) soit nulle (condition dite “de trace nulle”), 

- chaque forme fi{dy — pidx) est fermee, soit : 

(/) E./. = o, 

{II) E^p^fi = o, 

{Illi) {fiY^ + {pifiYy = 0 pour tout i. 

Notons U I’ouvert de la variete de contact au dessus de U, admissible pour les coordonnees {x, y,p), 
et S la surface d’equation F{x,y,p) = 0 dans JJ. Soit F le feuilletage sur S defini par la restriction 
(dy — p dx)g a cette surface de la forme de contact dy — p dx sur U : la surface S est un revetement 
(trivial) a d feuillets de U. Notant tti : Ui ^ U la projection sur U du feuillet Ut d’equationp = Pi{x, y), 
la restriction Fi de F a Ui se projette sur Fi par tt^. 

Soit {fi)i une famille de fonctions sur U. Il revient au meme de se donner une fonction / sur S 
(celle dont la restriction a Ui est egale a fioni). Et il revient aussi au meme de dire que la forme 
/ {dy — p dx)g sur S est fermee ou que chaque forme fi{dy — pi dx) Test. Mais exprimer cette 
condition, ainsi que la nullite de la trace pose probleme, quand on ne sait pas identifier chaque feuillet 
p=Pi{x,y). 


2.1 La methode de Henaut : 


Elle consiste a prolonger la fonction / : S —^-C en une fraction rationnelle sur U de la forme 


f{x,y,p) 


r{x,y,p) 

Fp{x,y,p) 


(done sans pole sur S), r designant le polynome d’interpolation enp des expressions fi{x, y)-Fp {x, y,pi{x, y)). 
Son degre est a priori au plus d — 1, mais nous aliens voir qu’il est meme au plus d — 3 des lors que 

^Dans le cas explicite ou Ton a le clioix, le programme explicite est en general plus performant. 
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sont verifiees les relations (!) et (//) : 


d-3 

r{x,y,p) = ^rj{x,y)p’. 
j=o 

On prend alors comme fonctions inconnues definissant les relations abeliennes les d — 2 coefficients Vj 
de r, (j = 0, • • • , d — 3), au lieu des d fonctions fi {i = 1, - ■ ■ , d) reliees par les relations (I) et {II). 

Notons Ok[p] le Oj/-module des polynomes P S Ou[p], de degre < k, et soit 

Li{x,y,p)= (p-Pj(a;,y)) 

dans Od-i[p] : puisque F{x,y,p) = Y[,{p - Pi{x,y)), est egal a Posons 

r = '^f^ U. 

i 


Puisque w est egal a fi sur le feuillet Ui, prolonge / a un voisinage de S dans U. 

^ P 

A priori, le degre de r est egal a d — 1. Mais le coefficient rd-i est egal a tandis que 

rd -2 = Y^iPifi + fi)- P®® relations (/) et {II) deviennent done Xd-i = 0, et rd -2 = 0, e’est-a- 

dire : r G Odsip]- 

Remarque : Au lieu de prolonger la fonction / par la fraction rationnelle , on 

aurait pu la prolonger par le polynome d’interpolation YiTppj^i ~ Yj=o^ji^>y) P’ 
prendre comme fonctions inconnues les d coefficients tj relies par les deux equations (/) et {II) (qui 
s’expriment facilement a I’aide des seuls coefficients at de F). Mais cette methode est plus compliquee 
du point de vue de la programmation : si I’on resume les equations (J) et {II) sous la forme 


(**) < TT{a),t >= 0, 

{TT{a) designant une matrice 2 x d construit^ a partir des coefficients ai), il faut prendre les derivees 
partielles successives de cette identite jusqu’a I’ordre d — 2, prendre le noyau du systeme obtenu, 
definir une trivialisation de ce noyau, etc... La methode Henaut est plus simple, puisque le nombre 
des fonctions inconnues rj est deja reduit a d — 2. 

II reste maintenant a exprimer que la restriction a S' de la 1-forme {dy — p dx) est fermee. 


Lemme 1 : Sur la surface S, est verifiee I’egalite 


J r{x,y,p) 
^Ff{x,y,p) 


{dy - p dx)'^ 


« + P r'y) 


(F^FpF^\ 


idx A dy 

1 Ff ) 

1 - ^ F' 

p P / 

' A 


Demonstration : Posons K := F^ + p Fy, d’ou F"^ +p Fy^ = K'^ — Fy. 


{dy-pdx)'^ = /\{dy-p dx) + -^^^(-dp A dx), soit : 


/ r{x,y,p) y / r{x,y,p) 
\Fp{x,y,p))^ ^\Ff{x,y,p) 


/ 

y. 


dx A dy + 


/ r{x,y,p) 
\Ff{x,y,p) 


dp A {dy — p dx) 

p 


r{x,y,p) 

Ff{x,y,p) 


{dp A dx). 


^Pour d = 3 par exemple, TT{a) 


f (“l)^ — 2a2 —ai 3 \ 

—(ai)® + 3aia2 — Sas (ai)^ —2a2 —aij 
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L’expression 


r{x,y,p) 

F!,(x,V,p) 


I r{x,y,p) ^ 

Pi,{x,V,p) j 

X \ / V 


, / 1 ' (’'i+P 'x'y)F^-r{K' -F') 

est egale a- ~ 


D’autre part, dF = 0 sur la surface S d’equation F{x,y,p) = 0 , d’ou dp = -^{F' dx + F' dy), 
dp Adx = ^ dx Ady et dp Ady = —^ dx A dy. Ainsi, sur S, — p dx)^ = A dx A dy, 


avec 


A = 


(r^+P %)F'y-r.K'^ 

(7SP 


rjx.y.p) 

K(x,y,p) 


' F' ’ 


+ P r'y){F^? + t{K.F;. - K'^.F;) - r'y.K.F^)) , 
j^{y'x + p r'y){F^f + H.r - L.r'p)^ , 


oir Ton a pose : 


H := -{F;f.{K/FX (= k.f;;, - k;.f;), et l ■.= k.f;. 

II resulte de ce lemme que la 1-forme {dy — p dx) sera fermee sur S ssi : 

il existe c G 02 d -4 [p] tel que 

(*o) {F^^Vx+P r'y) + H.r - L.r!p = c F. 

En egalant les coefficients des polynomes de degre < Sd — 4 en p dans (* 0 ), on obtient un systeme de 
3d — 3 equations a 3d — 5 inconnues qui sont les d — 2 coefficients rj de r et les 2d — 3 coefficients Cu 
de c. 

Les 2d —3 dernieres equationt[^ forment un systeme cramerien par rapport a ces inconnues parasites 
que sont les coefficients Cu, ce qui va nous permettre d’eliminer ces derniers en resolvant ce systeme 
cramerien et en reportant la solution dans les d premieres equations qui ne feront plus intervenir 
alors que les d — 2 inconnues rj ainsi que leurs derivees. Pour cela, il va etre commode d’utiliser des 
notations matricielles. 

2.2 Notations matricielles : 

Tout d’abord, aucune confusion n’etant a craindre, on notera souvent de la meme fagan un polynome 
P = J2i=o degre < k et \e {k + l)-vecteur colonne qui lui correspond, tandis que la 

multiplication Oh [p] —>■ Oh+k [p] par P sera representee par la matrice M{P) ci-dessous a d -b fc -|- 1 
lignes et d -b 1 colonnefl : 



/go 

0 

0 

••• o\ 


gi 

go 

0 

... 0 

fgo'^ 






Si 

M{P) = 

gk 

gk-i 


■■■ 0 



0 

gk 

Sfe-i 

■ • ■ 90 

\9k) 


0 

0 

9k 

■■■ 9i 


\o 

0 

0 

0 gk) 


^ordonnees dans Tordre croissant du degre auquel correspondent ces coefficients. 
^11 n’est pas interdit que soit nul. 
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/ ro \ 


Ainsi r = y)P^ represente par un (d —2)-vecteur colonne 


et r' =< N,r >, N designant la matrice N = 


/O 1 0 0 
0 0 2 0 
0 0 0 3 

0 0 0 0 
VO 0 0 0 


0 \ 

0 

0 

d-3 

0 / 


rd-2 

Vd-sJ 


, de meme que , r'y, 


, de taille (d — 2) x (d — 2). 


Considerons en particulier les matrices 
M{F) : 02d-4 [p] 03d-4 b] 


de taille (3d — 3) x (2d — 3), 


M{{F^Y) : Od -2 [p] — 03 d -4 [p] de taille (3d - 3) x {d - 1), 


M (L) : Od-3 [p] —S' 03d-4 [p] 


de taille (3d — 3) x (d — 2)), 


et M (id) : Od -3 [p] —>■ 03 d -4 [p] de taille (3d — 3) x (d — 2) 

(la premiere ligne de M{H) etant formee de zeros). 


, matrices de taille (d — 1) x (d — 2). 




/I 

0 

••• 0\ 


/o 

0 ••• 




0 

1 

... 0 


1 

0 ••• 

0 

Posons : Iq 

= 




et = 

0 

1 • • • 

0 



0 

0 

... 1 







^0 

0 

• o) 


lo 

0 0 

1/ 

La relation 

(*o) s’ 

ecrit 

alors : 





(*o) 



< 

m{{f;) 


-d 

o 

V 

-d < 


Cette relation se decompose en 

(*o)+ < M+{{F^f)),{Io.r', + I^r'y) > + < {M+{H) - M+{L).N),r >=< M+{F),c>, 

et 

(*o)“ < M-{{F;f)), {lo.r'^+I^.r'y) > + < - M-{L).N),r >=< M-{F),c>, 

M+ (resp. M~) designant les sous-matrices formees avec les d premieres lignes (resp. les 2d — 3 
dernieres) des differentes matrices ci-dessus a 3d — 3 lignes. 


La matrice M (F), qui est triangulaire avec des 1 sur la diagonale, est inversible. On en deduit : 

(*o)- c=< (M-(F))"\<M-((F;)2)),(do.r;+d0.r;) > + < (M-(id)-M-(L).iV),r », 

que Ton reporte dans (*)“'', de sorte qu’apres cette elimination de c, (*o) devient : 

< B, {lo-r'oc + > F < E,r >= 0 , ou 


B = M+{{F^f) - M+{F).{M-{F)) \m-((F;)2), 

E = {M+{H) - M+{L).N) - M+{F).{M-{F)y^{M-{H) - M-{L).N). 
On verifie alors le 


Lemme 2 : La matrice B, qui s’exprime d I’aide des coefficients at et ne fait pas intervenir leurs 
derivees, est de rang maximum d — 1. 
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Soit T n’importe quelle matric^l inverse a gauche de B (c’est-a-dire telle que T.B soit la matrice 
identite Idd-i) ; on en deduit le 

Theoreme 1 : L’espace des relations abeliennes sur U est isomorphe a, I’espace des families de 
fonctions r = {rj)j (0 < j < d — 3), solutions de requatioi^ : 

(*) < >= < M,r > oil M = —T.E. 

3 Le cas elementaire d = 3 : 

Dans ce cas, le degre de r est 0 : r = r{x, y) et r'^ = 0, tandis que M est une matrice 2x1, c’est-a-dire 
un 2-vecteur, dont on notera Mi et M 2 les composantes. Le systeme {*) s’ecrit alors : 

= Mi.r , r'y = M2.r. 


La connexion sur le fibre Rq de rang 1 des 0-jets de relations abeliennes (dont r est une section) s’ecrit 
Va;r = r(. — Mi.r, V^r = r'y — M 2 .r, et sa courbure est done 

k={M2)',-{Mi)'y. 

C’est la courbure de Blaschke-Dubourdierl^. 


4 Principe de la programmation du calcul de la courbure dans 
le cas general d > 3 : 


De fagon generale, on notera /? la derivee partielle g^^g'y^ ■ 

Notons Rk le fibre des relations abeliennes formelles a I’ordre k : Rq est un fibre de rang d — 2 , 
dont I’espace des sections r = ('Cj)i<j<d -3 peut-etre identifie a Od-a [p]- On reservera la notation 
r'^ p aux jets des veritables relations abeliennes, et Ton notera plutot 

Ua,p = {Ua,p)i {oi + p <k, 0 < j <d- 3 ) 
les elements constitutifs de Rk- 

Les elements de Ri an dessus d’un element uo,o S Rq sont solutions du systeme lineaire 


< IqjUi^o > + < I^, uop >= < M, uo,o > 


de rang d — 1, de (d — 1) equations a 2(d — 2) inconnues (ui^o)i) ('ao.i)j- 

Plus generalement, et pour fc < d — 3, les elements de Rk+i au dessus d’un element e € Rk sont 
solutions d’un systeme lineaire E/c+i(e) de rang (fc -|- l)(d — 1) (maximum) : Si e = {ua^p)a+ 0 <k, le 
systeme Sfe+i(e) est constitue des 

fc-l-1 equations {*a,p) a valeurs vectorielles (on (fc-|-l)(d—1) equations a valeurs scalaires), obtenues 
en derivant I’identite (*) a fois par rapport k x et j3 fois par rapport a y, avec a -\- jd = k, 

a (fc -I- 2)(d — 2) inconnues {ua,p)j, (j = 0, • • • , d — 3), avec cette fois-ci a + /d = k + 1. 

®Si Bi designe la sous-matrice carree de B obtenue en supprimant la i-eme ligne, et si I’indice io a ete choisi de fag 
on que Bi^ soit inversible, on pent prendre pour T la matrice Ti^ construite a partir de (Big)~^ en lui ajoutant une 
colonne de zeros a la io-eme place. C’est ce qu’on fera dans la programmation qui suit. 

®Nous essaierons de distinguer, dans la mesure du possible, le signe ' = ' qui marque une egalite entre fonctions ou 
germes en un point m G 17, et le signe ' = ' qui marque une egalite entre valeurs ou jets en m. 

^Voir par exemple [B]. 
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Plus precisement, I’equation {*a,i 3 ) s’ecrit : 

< lojUa+l^iS > + < /°,Wq_/3+i 

7=0 5=0 ^ ^ ^ 

On notera en abrege < M, u >a ,0 le second membre de cette equation, et Ton posera : 

«2j - (“) ■ 0) 

On notera Pfe+i la partie homogene du systeme Efc+i(e), constitue par la superposition des expressions 
< Io,Uci+i,k-a > + < ,Ua^k+i-a > pour a variant de 0 a /c + 1. 

Notation : La plupart des matrices considerees se decomposent en blocs (d — 1) x (d — 2) construits 

- a partir des matrices Iq, pour Pk, 

- et a partir de M et de ses derivees partielles successives pour les seconds membres des systemes. 

Si (...) designe une telle matrice a u{d — 1) lignes et v{d — 2) colonnes, on notera Bh,(){■■■) le bloc 

- des lignes comprises entre (/3 — l)(d — 1) + 1 et /3(d — 1), 

- et des colonnes comprises entre (d — l)(d — 2) + 1 et h{d — 2). 

En particnlier, = /q, = 1°, B^^hiPk+i) = 0 si d 7^ /3,/3 + 1, et Ton 

demontre aisement le 

Lemme 3 : La matrice carree P := Pd- 2 , de taille (d — l)(d — 2) x (d — l)(d — 2), est inversible. 
PoSOnS = (r(,,_^)a+/ 3 =/i, et = {Ua,/s)a+/3=h- 
Le systeme Ed_2(e), de la forme 

< P,u'’^~‘^'> >=< Q,e >, 

est done cramerien ; sa partie homogene, qui ne contient que des zeros et des 1, ne depend pas de 
e = (u^*^)o<fc<d-3. II permet de definir la connexion tautologique de Henaut sur £ := Rds, dont les 
sections a derivee covariante nulle s’identifient aux relations abeliennes. 

Soit s = {ua, 0 )a+i 3 <d -3 une section de £ : chaque Ua,i 3 = {ua, 0 )j, (0 < j < d — 3) est un 
(d — 2)-vecteur (ou plus exactement une fonction 

Ma,/3 : {x,y) Ua,ji{x,y) 

sur U a valeurs dans les (d — 2)-vecteurs). 

La connexion tautologique est alors definie par 

(^^■®)a./3 = “ Ua+i,p sia + /3<d-4, 

5 

“ < P~^,< Q,S »a+l,l3 si « +/3 = d - 3. 

“ ^“.d+1 sia + /3<d-4, 

(^y®)a./3 = < Q, s »q,,/ 3 +i sia + /3 = d-3. 

ou < Q, s > designe le second membre du systeme Eci_2(e). 


7 



Reduction du nombre des inconnues : 

A priori, pour definir une section s de £, il faut se donner (d — l)(d — 2)^/2 fonctions (ua,p)j, avec 
0<a + /3<c? — 3et0<j<ci — 3. Nous allons montrer que I’on peut en fait reduire ce nombre a 
{d — l)((i — 2)/2. Pour cela, nous procederons en deux etapes : 

- dans la premiere, nous reduirons d’abord ce nombre k {d — 2 )^ en montrant que, pour un ordre de 
derivation k = a + P donne, les vecteurs Ua,p sont determines par I’ensemble des vecteurs {uo^h)o<h<k- 

- dans la seconde, nous reduirons finalement ce nombre a {d — l){d — 2)12 en montrant que les 
composantes {uo^h)j de uo,/i pour d — 2 — h < j < d — 3 ne dependent que des vecteurs (uo,fe)fc<h-i- 

Theoreme 2 : Une section s = {ua^/ 3 )a+/ 3 <h de Rh est entierement definie par ses composantes 
r;(^) := uo^k pour k < h. Plus precisement, Ua,p s’exprime comme une combinaison lineaire 

a+P 

k=0 

oil les matrices ^ ne dependent que de M et de ses derivees, avec la formule de recurrence {d’abord 
sur a + P, puis sur a pour a + P fixe) : 

a 0 

E’^+i,p = -{Jo-n-Eip+i + 

7—0 (5—0 

oil Jo designe la matrice de taille {d — 2) x {d — 1 ) consistant a ajouter une colonne de zeros a droite 
de la matrice Identite Idd- 2 , avec la convention E!) ,5 = 0 si h > j + 6. 

Demonstration : Puisque Jo-Jo = Id- 2 , il suffit d’appliquer la matrice Jo a chacun des deux membres 
de I’equation {*)a,p ci-dessus, pour obtenir le resultat, . 

Corollaire : En particulier, Q se decompose en blocs Bp^hiQ) de taille {d — 1) x {d — 2), avec 

d-3-P 0 

BpAQ) = E E K'Vp^p-E^s , {0<P<d-2, 0<h<d-3). 

7—0 (5—0 


Theoreme 3 : Pour tout h, h < d — 5, = {v^^'>)j^o---d -3 est entierement defini par I’ensemble 

= {v^^'>)j=o---d- 3 -h de ses composantes {uo^h)j obtenues pour 0<j<d — 3 — h, ainsi que par les 
pour k < h, avec la formule de recurrence 

h-l 

^(h) ^ ^ K\uh,o > +E(-1)'' < K’^-\{oJ),<M,u>k,h-i-k>, 

k=0 

dans laquelle (0 J) designe la matrice de taille {d — 2) x {d — 1) consistant a ajouter une colonne de 
zeros a gauche de la matrice Identite Id- 2 , et K := (oJ)./o- 

Demonstration : On observe que (0 J)./° = Id- 2 , 

tandis que < AT”, {wq, wi, • • • , Wd- 3 ) >= {wn, Wn+i, ■ ■ ■ , Wd- 3 , 0, • • • , 0) > pour tout entier n < d —3, 
et = 0. Par consequent, I’expression (—1)^ < K’’',Uh,o > de la formule ci-dessus n’intervient 

pas dans le calcul des composantes pour j > d — 3 — h. 

En particulier, appliquant (0 J) aux deux membres de I’equation initiate (*0)) on obtient 


= — < AT, upo > + < {oJ)-M,v^°'> >, 



ce qui prouve le theoreme pour k = 1. 

Plus generalement, appliquant aux deux membres de I’equation {*k,h-i-k) 

et sommant terme a terme les egalites obtenues pour h fixe en faisant varier A: de 0 a /i, on obtient 
finalement la formule annoncee. 

Par contre, on pent fixer librement les inconnues {uo^h)j pour 0<j<d — 3 — h. Des theoremes 2 
et 3 resulte alors le 


Corollaire : 

(i) Pour k < d — 2, Rk est un espace fibre vectoriel holomorphe de rang — 2 — j). 

(ii) La projeetion Rd- 2 —> Rd -3 est un isomorphisme de fibres vectoriels. 


(Hi) En particulier, Rd -3 est un fibre de rang (l/2)(d — l){d — 2). 

Numerotation des inconnues libres, et trivialisatiorU du fibre Rd-s • 

Le couple {h,j) tel que 0</i<d — 3et0<j < d — 3 — h va recevoir le numero d’ordre 

h{2d — 3 — h) 


a = 


+ j + 1- 


On notera alors cTq (ou la section de Rd -3 telle que {uo,h)j = 1) et {uoy)ji = 0 si (/, h') {j, h), 

(avec h'<d — 3etj'<d — 3 — h'). D’apres le theoreme 3 ci-dessus, les sections Ca, pour a variant 
de 1 a (l/2)(d — l)((i — 2)), trivialisent le fibre Rd- 3 - 


Ainsi, par exemple, les (j, h) sont rangees dans I’ordre 
(0) 

cri = ' 

( 0 ) ( 0 ) ( 1 ) 

CTi = b(T2 = Si ',(73 = Sq 

( 0 ) ( 0 ) ( 0 ) ( 1 ) ( 1 ) ( 2 ) 

(Tl = si, ',(72 = si ',(73 = S^ ',(74 = si, ',(75 = si ',(76 = S^q 

etc... 


pour d = 3, 
pour c? = 4, 
pour d = 5, 


Numerotation des lignes de Q, (indexees par {h, j), 0 < h < d — 3, 0 < j < d — 3): : 


Le couple {h,j) regoit le numero d’ordre 

a' = h{d — 2)+j + 1. 

{Si j <d — 3 — h, a' = a+ 

La forme de connexion uj = {{uj^)) relative a la trivialisation precedente est donnee par la formule: 

= composante de Vcr^, sur ab, 

et la forme de courbure O = ((O^i)) correspondante s’en deduit par la formule : 


5 Programmation sur Maple 8 : 

Mere! aux experts en Maple de pardonner aux auteurs leurs maladresses en programmation, et de les 
leur signaler ! 

^Relativement a cette trivialisation, la seule ligne non nulle de la matrice de courbure est la derniere. Ceci corrtespond 
en fait au cas particulier n = 2 du theoreme 4 demontre en appendice. 
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> restart; 

> with(LinearAlgebra); 

Entree des donnees : 

{Les donnees entrees ei-dessous sont celles du 5-tissu de Bol). 

Entree de d : 

> d:=5; 

> interface(rtablesize= (d) * (d) +3); 

Entree de E : 

> apply(a,i,x,y); apply(F,x,y,p); 

Cas implicite : entree directe de F par ses eoefficients Oi (avec ao = IJ ; 
dans le cas explicite, entree des pi : F = T\^{p -Pi)- 

> pi := —l;p2 := l;p3 := y/{x — l);p4 := y/ (x + l);p5 := 2 * x * y/ (x^ + — 1); 

> F:=(p-pl)*(p-p2)*(p-p3)*(p-p4)*(p-p5); 

> F:=collect(%,p); 

> a(0,x,y):=l; 

A partir de maintenant, I’ecriture du programme ne depend plus des donnees introduites (sauf le choix 
de I’indiee iO ci-dessous, permettant de calculer un inverse a gauehe de MB) 

Premiere partie : Calcul de la matrice M de I’equation initiale : 

< lQ,r'^ > + < I^,r'y >=< M,r > : 

> Fp:=diff(F,p); 

> Fa;:=collect(diff(F,x),p); 

> Fy:=collect(diff(F,y),p); 

> H:=simplify(diff(Fp,p) *{F^+p* Fy) - Fp * diff{F^ +p * Fy,p)); 

> H:=collect(H,p); 

> L:=simplify(Fp * {F^ + p * Fy)); 

> L:=collect(L,p); 

> for j to d-2 do for i to j-1 do li(i,j):=0 od od; 

> for j to d-2 do for i from j to 2*d-l-|-j do h(i,j):=simplify(coeff(L,p,i-j)) od od; 

> for j to d-2 do for i from 2*d-|-j to 3*d-3 do h(i,j):=0 od od; 

> ML:=Matrix(3*d-3,d-2,h); 

> for j to d-2 do for i to j-1 do k(i,j):=0 od od; 

> for j to d-2 do for i from j to 2*d-l-|-j do k(i,j):=simplify(coeff(H,p,i-j)) od od; 

> for j to d-2 do for i from 2*d-|-j to 3*d-3 do k(i,j):=0 od od; 

> MH:=Matrix(3*d-3,d-2,k); 

> apply(f,i,j); for j to (2*d-3) do for i to j-1 do f(i,j):=0 od od; 

> for j to (2*d-3) do for i from j to j-|-d do f(i,j):=coeff(F,p,i-j) od od; 

> for j to (2*d-3) do for i from j-l-d-|-l to 3*d-3 do f(i,j):=0 od od; 

> MF:=Matrix(3*d-3,2*d-3,f); 
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> Fsup:=DeleteRow(MF,d+1..3*d-3); 

> Finf:=DeleteRow(MF,l..d); 

> IF inf: =simplify (Matrixinverse (Finf)); 

> expand((F"p)^); 

> collect ( 

> apply(g2,i,j); for j to (d-1) do for i to j-1 do g2(i,j):=0 od od; 

> for j to (d-1) do for i from j to (j-|-2*d-l) do g2(i,j):=coeff((Fp)^,p, i — j) od od; 

> for j to (d-1) do for i from (j-|-2*d) to 3*d-3 do g2(i,j):=0 od od; 

> MF2p:=simplify(Matrix(3*d-3 ,d-l,g2)); 

> MB:=simplify(simplify(simplify(DeleteRow(MF2p,d-|-1..3*d-3))-Fsup.IFinf.simplify(DeleteRow(MF2p,l..d)))); 

II existe iO tel que Determinant(DeleteRow(MB,iO)) ne soit pas nul ; {modifier iO si besoin est, en 
fonction du tissu introduit au depart). 

> i0:=d-2; 

> Rank(DeleteRow(MB,iO)); 

> IMB1:=factor (factor(MatrixInverse(DeleteRow(MB ,i0)))); 

> apply(t,i,j); for i to d-1 do t(i,i0):=0 od ;for j to iO-1 do for i to d-1 do t(i,j):=IMBl[i,j] od od; 
for j from iO-fl to d do for i to d-1 do t(i,j):=IMBl[i,j-l] od od ; 

> T:=simplify(simplify(Matrix(d-1 ,d,t))); 

> apply(n,i,j);for i to d-2 do for j to i do n(i,j):=0 od od; for i to d-2 do n(i,i-l-l):=i od; for i to d-2 
do for j from i-|-2 to d-2 do n(i,j):=0 od od; 

> YY:=Matrix(d-2,d-2,n); 

> MHL:=simplify(simplify(MH-ML .YY)); 

> MC:=simplify(simplify(simplify(DeleteRow((MHL),d-|-1..3*d-3))-Fsup.IFinf.simplify(DeleteRow((MHL),l..d)))); 

> M:=-simplify(T.MC); 

> apply(MM,i,j); 

> for i to d-1 do for j to d-2 do MM(i,j):=simplify(simplify(M[i,j])) od od; 

Deuxieme partie : calcul des prolongements de I’equation initiale : 

Calcul de M'^ ; 

> ds:=proc(u,a,b) description ’’donne la derivee d’ordre superieur”; 
if (a=0 and b=0) then u else 

if (evalf(a)>0 and b=0) then simplify(diff(u,x$a)) else 
if (a=0 and evalf(b)>0) then simplify(diff(u,y$b)) else 
simplify(diff(diff(u,y$b), $a)) 
fi fi fi end proc; 

> dM:=proc (a,b) m(a,b):=(i,j)->ds(MM(i,j),a,b); Matrix(d-l,d-2,m(a,b)) end proc; 

> apply(vJo,x,y); 

for i to d-2 do for j to i-1 do vJo(i,j):=0 od od; 
for i to d-2 do vJo(i,i):=l od; 

for i to d-2 do for j from i-fl to d-1 do vJo(i,j):=0 od od; 
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> Jo:=Matrix(d-2,d-l,vJo); 

> apply(usupO,i,j); 

for j to d-2 do usup0(l,j):=0 od; 

for i from 2 to d-1 do for j to i-2 do usup0(i,j):=0 od od; 
for i from 2 to d-1 do usupO(i,i-l):=l od; 

for i from 2 to d-1 do for j from i to d-2 do usup0(i,j):=0 od od; 

> apply(uinfO,i,j); 

for j to d-2 do uinf0(d-l,j):=0 od; 

for i to d-2 do 

for j to i-1 do 

uinf0(i,j):=0 od od; 

for i to d-2 do 

uinfO(i,i):=l od ; 

for i to d-2 do 

for j from i-|-l to d-2 do 

uinf0(i,j):=0 od od; 

> IsupO:=Matrix(d-l,d-2,usupO); 

> IinfO:=Matrix(d-l,d-2,uinfO); 

Calcul des matrices E(h,a,b) telles que ^ ^ ’’’oh 

> apply(E,h,a,b); 

for h from 0 to d-2 do for n from 0 to h-1 do 
E(n,0,h):=Matrix(d-2,d-2,0) od od ; 

for a from 0 to d-2 do for b from 0 to d-2 do for h from a-fb-l-l to d-2 do 
E(h,a,b):=Matrix(d-2,d-2,0) od od od ; 

for h from 0 to d-2 do E(h,0,h):=ldentityMatrix(d-2) od; for k from 0 to d-3 do for a from 0 to k 
do for h from 0 to k-l-1 do 

E(h,a-|-l,k-a):= simplify(-Jo.lsupO.E(h,a,k-a-|-l)-|- 

sum(’binomial(a,c)*sum(’binomial(k-a,e)*Jo.dM(a-c,k-a-e).E(h,c,e)Ve’=0..k-a)Vc’=0..a)): od od 
od; 

> for k from 0 to d-3 do for a from 0 to k do for h from 0 to k-f 1 do 
print(’E’(h,a-|-l,k-a)=E(h,a-|-l,k-a)) od od od; 

Calcul des matrices G (h,a,b) telles que < M, r >'^ Xhio ^ ^)) *"0 h > • 

> apply(G,h,a,b); 

> for k from 0 to d-3 do for a from 0 to k do for h from 0 to k do 
G(h,a,k-a):= simplify(simplify( 

sum(’binomial(a,c)*sum(’binomial(k-a,e)*dM(a-c,k-a-e).E(h,c,e) Ve’=0..k-a)Vc’=0..a))); od od od; 

> for k from 0 to d-3 do for a from 0 to k do for h from 0 to k do 
print(’G’(h,a,k-a)=G(h,a,k-a)) od od od; 
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Expression du systeme < P, (r^ Ja+&=d -2 >=< Q, {ra^b)a+b<d -2 > • 

Calcul de la matrice inversible P, partie homogene du systeme, et matrice inverse IP : 

> apply(u,i,j); 

> for a from 1 to d-2 do for i from (a-l)*(d-l)+l to a*(d-l) do for b from 1 to a-1 do for j from 
(b-l)*(d-2)+l to b*(d-2) do 

u(i,j):=0 ; od od od od; 

> for a from 1 to d-2 do for i from (a-l)*(d-l)-|-l to a*(d-l) do for j from (a-l)*(d-2)-|-l to a*(d-2) 
do 

u(i,j):=uinf0(i-(a-l)*(d-l),j-(a-l)*(d-2)) od od od; 

> for a from 1 to d-2 do for i from (a-l)*(d-l)-|-l to a*(d-l) do for j from a*(d-2)-|-l to (a-|-l)*(d-2) 
do 

u(i,j):=usup0(i-(a-l)*(d-l),j-a*(d-2)) od od od; 

> for a from 1 to d-2 do for i from (a-l)*(d-l)-|-l to a*(d-l) do for b from a-|-2 to d-1 do for j from 
(b-l)*(d-2)-bl to b*(d-2) do 

u(i,j):=0 od od od od; 

> P:=Matrix((d-l)*(d-2),(d-2)*(d-l),u); 

> IP:=MatrixInverse(P); 

Calcul de Q : 

> apply(q,i,j); 

> for b from 0 to d-3 do for h from 0 to d-3 do for j from h*(d-2)-|-l to (h-|-l)*(d-2) do for i from 
b*(d-l)-bl to (b-bl)*(d-l) do 

q(i,j):=simplify(G(h,d-3-b,b))[i-b*(d-l),j-h*(d-2)] od od od od ; 

> Q:=Matrix((ci — 2) * (d — 1), (d — 2)^, q); 

> U:=IP.Q; 

Expression des inconnues liees v(h,j) pour j variant de d-2-h a d-3, 
en fonction des inconnues libres v(h,j) pour j variant de 0 a d-3-h : 

> apply(voJ,x,y); 

> for i to d-2 do for j to i do voJ(i,j):=0 od od; 

> for i to d-2 do voJ(i,i-l-l):=l od; 

> for i to d-2 do for j from i-|-2 to d-1 do voJ(i,j):=0 od od; 

> oJ:=Matrix(d-2,d-l,voJ); 

> J:=(oJ).IinfO; 

Numerotation des inconnues libres : {h, j) ^ a = h * (2 * d — 3 — h)/2 -\- j 1, (0 < j < d — 3 — ft.) ; 

> apply(hh,a); 

> for a to (d-l)*(d-2)/2 do for h from 0 to d-3 do 

if h*(2*d-3-h)/2<a and a<=(h-f l)*(2*d-4-h)/2 then hh(a):=h fi od od; 

> for a to (d-l)*(d-2)/2 do print(’hh’(a)=hh(a)) od; 

> apply(jj,a); for a to (d-l)*(d-2)/2 do jj(a):=a-l-hh(a)*(2*d-3-hh(a))/2 od; 


13 



Numerotation de toutes les inconnues :{h, j) ^ a = h * {d — 2) + j + 1, {0 < j < d — 3) : 

> apply(hhh,a); 

> for a to (d-2)*(d-l) do for h from 0 to d-2 do 

if h*(d-2)<a and a<=(h+l)*(d-2) then hhh(a):=h fi od od; 

> for a to (d-2)*(d-l) do print(’hhh’(a)=hhh(a)) od; 

> apply(jjj,a); for a to (d-2)*(d-l) do jjj(a):=a-l-hhh(a)*(d-2) od; 

Trivialisation du fibre porteur de la connexion par les sections s(a) = (s(a, {j^d — 3 — h): 

> apply(s,a,h,j); 

> for a to (d-l)*(d-2)/2 do for h from 0 to d-3 do for j from 0 to d-3-h do 
s(a,hh(a),jj(a)):=l od od od ; 

> for a to (d-l)*(d-2)/2 do for h from 0 to d-3 do for j from 0 to d-3-h do 
if h<>hh(a) or j<>jj(a) then s(a,h,j ):=0 fi od od od ; 

Expression des inconnues liees {j > d —3 — h) en fonction des inconnues libres (j au plus d — 3 — h) : 

> for a to (d-l)*(d-2)/2 do for h from 1 to d-3 do for j from d-2-h to d-3 do 
s(a,h,j):= sum(’ sum(’ sum(’ 

(—l)*=i=( J^.oJ.G'(n, k,h — l — k))[j + l,r]*s{a,n,r — iy,'r' = l..d—2y,'k' = O.-h—l)',' n' = 0..h — l) 
od od od ; 

> for a to (d-l)*(d-2)/2 do for h from 0 to d-3 do for j from 0 to d-3 do print(’s’(a,h,j)=s(a,h,j)) 
od od od; 

> apply(WW,a,h); 

> for a to (d-l)*(d-2)/2 do for h from 0 to d-3 do WW(a,h):=Vector(d-2) od od; 
for a to (d-l)*(d-2)/2 do for h from 0 to d-3 do for i to d-2 do 
WW(a,h)[i]:=s(a,h,i-l) od od od; 

> for a to (d-l)*(d-2)/2 do for h from 0 to d-3 do 
print(’WW’(a,h)=WW(a,h)) od od; 

> apply (WWW,a); 

> for a to (d-l)*(d-2)/2 do WWW(a):=Vector((d - 2)2) od: 

> for a to (d-l)*(d- 2)/2 do for i to (d — 2 )^ do 
WWW(a)[i]:=WW(a,hhh(i))[i-hhh(i)*(d-2)] od od: 

> for a to (d-l)*(d- 2)/2 do 
print(WWW’(a)=WWW(a)) od; 

Troisieme partie : expression de la connexion et calcul de sa courbure : 

{Relativement a. la trivialisation precedente, la forme de connexion est ecrite {Ax) dx + {Ay) dy ) 

Derivation covariante en x des sections s(a) ; calcul de Ax : 

> apply(Nablax,a,h,j); 

> for a to (d-l)*(d-2)/2 do for h from 0 to d-4 do for j from 0 to d-3 do 

Nablax(a,h,j):=simplify(diff(s(a,h,j),x)-sum(’(E(k,l,h) WW(a,k))[j-|-l] Vk’=0..h-|-1)) od od od; 

> for a to (d-l)*(d-2)/2 do for h from 0 to d-4 do for j from 0 to d-3 do 
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print(’Nablax’(a,h,j)=Nablax(a,h,j)) od od od; 

> for a to (d-l)*(d-2)/2 do for j from 0 to d-3 do 

Nablax(a,d-3,j):=diff(s(a,d-3,j),x)- (U.WWW(a))[(d-3)*(d-2)+j+l] od od; 

> for a to (d-l)*(d-2)/2 do for j from 0 to d-3 do 
print(’Nablax’(a,d-3,j)=Nablax(a,d-3,j)) od od; 

> apply(NNx,b,a); 

> for b to (d-l)*(d-2)/2 do for a to (d-l)*(d-2)/2 do 
NNx(b,a):=simplify(Nablax(a,hh(b),jj(b))) od od; 

> Ax:=Matrix((d-l)*(d-2)/2,(d-l)*(d-2)/2,NNx); 

Derivation covariante en y ; calcul de Ay : 

> apply(Nablay,a,h,j); 

> for a to (d-l)*(d-2)/2 do for h from 0 to d-4 do for j from 0 to d-3 do 
Nablay(a,h,j):=simplify(diff(s(a,h,j),y)-s(a,h-|-l,j)) od od od; 

> for a to (d-l)*(d-2)/2 do for h from 0 to d-4 do for j from 0 to d-3 do 
print(’Nablay’(a,h,j)=Nablay(a,h,j)) od od od; 

> for a to (d-l)*(d-2)/2 do for j from 0 to d-3 do 

Nablay(a,d-3,j):=simplify(fiz//(s(a, d — 3,j),y) — {U.WWW{a))[{d — 2)^ + j + 1]) od od; 

> for a to (d-l)*(d-2)/2 do for j from 0 to d-3 do 
print(’Nablay’(a,d-3,j)=Nablay(a,d-3,j)) od od; 

> apply(NNy,b,a); 

> for b to (d-l)*(d-2)/2 do for a to (d-l)*(d-2)/2 do 
NNy(b,a):=Nablay(a,hh(b),jj(b)) od od; 

> Ay:=Matrix((d-l)*(d-2)/2,(d-l)*(d-2)/2,NNy); 

Calcul de la courbure : 

> apply(axy,b,a); 

for a to (d-l)*(d-2)/2 do for b to (d-l)*(d-2)/2 do 
axy(b,a):=simplify(diff(Nablay(a,hh(b),jj(b)),x)) od od; 

> apply(ayx,b,a); for a to (d-l)*(d-2)/2 do for b to (d-l)*(d-2)/2 do 
ayx(b,a):=simplify(diff(Nablax(a,hh(b),jj(b)),y)) od od; 

> Axy:=simplify(Matrix((d-l)*(d-2)/2,(d-l)*(d-2)/2,axy)); 

> Ayx:=simplify(Matrix((d-l)*(d-2)/2,(d-l)*(d-2)/2,ayx)); 

> KK:=simplify (simplify (simplify (Axy) -simplify (Ayx)) + 

simplify (simplify (Ax).simplify (Ay) (-simplify (simplify (Ay).simplify (Ax))): 

Dans le cas d’une deformation du tissu I’aide du parametre z (sinon KO=KK) : 

> ko:=(i,j)->taylor(KK[i,j],z,l): 

> KO:=Matrix((d-l)*(d-2)/2,(d-l)*(d-2)/2,ko); 
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6 Appendice : Concentration de la matrice de courbure rela¬ 
tive a une trivialisation adaptee 


Nous nous placerons plus generalement dans le contexte d’un d-tissu calibre ordinair^ de codimension 
un dans une variete holomorphe de dimension n (n >2). 

Soit ko rentier > 2 tel que d = {n — 1 + A:o)!/(n — l)!(fco)! (si n = 2, fcg = d — 1). 

On definit alors une filtration decroissante de f = Rko -2 en posant : 


Fo{£) = £ et Fh{£) = Ker(i?feo _2 Rh-i) pour 1 < d < fco - 1, 
ctiaque Fh{£) etant alors un sous-fibre vectoriel de rang (d “ c(n, h)), ou Ton a pose 

c(n, h) := (n — 1 + h)\/(n — l)\hl. 

Une trivialisation holomorphe (ua) de f ^1 < a < J2h°=i (d“ c(n, /i))^ sera dite adaptee si, pour tout 
h (1 < h < fco — 2 ), les (d — c(n, d + 1) sections a a telles que 

h h-\-l 

y^(d — c(n, fc)) < a < ^^(d — c{n, k)) 

k=l fc=l 


engendrent un supplementaire Sh (necessairement holomorphe) de Fh+i{£) dans Fh{£). 


Theoreme 4 : Relativement a une trivialisation “adaptee”, la matrice de courbure de la connexion 
tautologique d’un d-tissu holomorphe ordinaire calibre de codimension un dans une variete holomorphe 
de dimension n (n > 2 ) est concentre^^ dans les {n — 2 + kg)]/(n — 2)\kQ\ dernieres lignes {la derniere 
ligne si n = 2), oil k^ designe I’entier > 2 tel que d = (n — 1 + fco)!/(^ ~ l)!fco!- 

Cela veut dire que les lignes qui precedent n’ont que des 0. 

Demonstration : Soit L = {ai, • • • , a„) un multi-indice de derivation, et L -I- 1^ le multi-indice obtenu 
en augmentant ai de 1. Supposons la trivialisation (ua) adaptee. Une section s de f est alors 
representee par une famille {s^^^)h d’elements s^^^ G Sh, = {sL)\L\=h)- 

De meme, soit la famille des derivees partielles d’ordre kg — I des com- 

posantes de la projection sur Rq d’une section s de Rko-i (composantes relatives a la trivialisation 
locale de Rq deja utilisee pour les derivees d’ordre < ko — 2). 

D’autre part, le tissu etant ordinaire et calibre, la projection P : Rkg-i ^ Rko- 2 {= £) est un 
isomorphisme de fibres vectoriels. Le systeme lineaire exprimant qu’une section s de Rkg-i est un 
{ko — l)-jet de relation abelienne se projetant sur une section s de Rkg- 2 {= £) s’ecrit : 

< >=< Q,s > 

pour un certain operateur lineaire Q. La derivation covariante de la connexion tautologique sur £ est 
done definie par les formules : 


(Vis)L = di{sL) - SL+u pour \L\ < fco - 3, 
et (Visji = di{sL)- < {P~^.Q), s >L+u pour \L\ = fcp - 2. 


On en deduit : 


(V,Vjs)l = didj{sL) - 5i(sL+iJ - dj{sL+ii) + sl+u+i,/ pour \L\ < ko - 

®On se refere a [DL] pour la terminologie et les notations. 

^^Ce rsultat probablement deja bien connu pour n = 2. 
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et (ViVjs)L = didj{sL) - i9*(sl+iJ - dj{sL+ii)+ < {P ^■Q),s >l+u+i^ pour \L\ = ko-3. 

Dans les deux cas, I’expression est symetrique en i et j : la matrice de courbure ne peut done avoir 
de composante non nulle que pour \L\ = kg — 2. Puisque Sko -2 est de rang c(n, kg) — c{n, fco ~ 1)) soit 
c(n — 1, ko), le theoreme est demontre. 

Pour n = 2, c(n — 1, fco) est egal a 1 quel que soit ko = d — 1. 
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